
(eq? 'a 'a)				; => #t

(eq? (eq-hash-code 'a)
     (eq-hash-code 'a)) 		; => #t

(equal? "str" "str")			; => #t

(eq? (equal-hash-code "str")
     (equal-hash-code "str"))		; => #t

(eq? (eq-hash-code "str")
     (eq-hash-code "str"))		; => #f


(eq? (equal-hash-code '(1 2 3))
     (equal-hash-code '(1 2 3)))	; => #t

(eq? (eq-hash-code '(1 2 3))
     (eq-hash-code '(1 2 3)))		; => #f

(define H (make-hash-table 'equal))	;

(hash-table-put! H '(1 2 3) 4) 		;

(hash-table-get H '(1 2 3))		; => 4

(hash-table-put! H 'z "ZZ") 		;

(hash-table-for-each H inform)

(hash-table-map H cons)			; => ((z . "ZZ") ((1 2 3) . 4))

